home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Users Group Library 1996 July / C-C++ Users Group Library July 1996.iso / listings / v_02_12 / 2n12049a < prev    next >
Text File  |  1991-10-27  |  147b  |  10 lines

  1. Function StrLen(S:PCHAR):Word;
  2. var I:Word;
  3. begin
  4.     I := 0;
  5.     while (i<$FFFF) AND (S[i] <> 0) do
  6.         inc(i);
  7.     StrLen := i
  8. end;
  9.  
  10.